﻿Public Class test
    Public mil As Double
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        mil = Double.Parse(TextBox1.Text)
        Me.DialogResult = Windows.Forms.DialogResult.OK
    End Sub
End Class